home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Highspeed pascal.adf / Interface / Intuition.pas < prev    next >
Pascal/Delphi Source File  |  1992-01-16  |  20KB  |  931 lines
  1. Unit Intuition;
  2.  
  3. Interface
  4. Uses Graphics, Keymap, Input, Timer, Exec;
  5.  
  6. Type
  7.   pBorder = ^tBorder;
  8.   tBorder = Record
  9.           LeftEdge: Integer;
  10.           TopEdge: Integer;
  11.           FrontPen: ShortInt;
  12.           BackPen: ShortInt;
  13.           DrawMode: ShortInt;
  14.           Count: ShortInt;
  15.           XY: pInteger;
  16.           NextBorder: pBorder;
  17.         End;
  18.  
  19.   pMenu = ^tMenu;
  20.   pMenuItem = ^tMenuItem;
  21.   tMenu = Record
  22.           NextMenu: pMenu;
  23.           LeftEdge: Integer;
  24.           TopEdge: Integer;
  25.           Width: Integer;
  26.           Height: Integer;
  27.           Flags: Integer;
  28.           MenuName: pShortInt;
  29.           FirstItem: pMenuItem;
  30.           JazzX: Integer;
  31.           JazzY: Integer;
  32.           BeatX: Integer;
  33.           BeatY: Integer;
  34.         End;
  35.  
  36.   pScreen = ^tScreen;
  37.   pWindow = ^tWindow;
  38.   pTextAttr = ^tTextAttr;
  39.   pGadget = ^tGadget;
  40.   pLayer = ^tLayer;
  41.   tScreen = Record
  42.           NextScreen: pScreen;
  43.           FirstWindow: pWindow;
  44.           LeftEdge: Integer;
  45.           TopEdge: Integer;
  46.           Width: Integer;
  47.           Height: Integer;
  48.           MouseY: Integer;
  49.           MouseX: Integer;
  50.           Flags: Integer;
  51.           Title: pShortInt;
  52.           DefaultTitle: pShortInt;
  53.           BarHeight: ShortInt;
  54.           BarVBorder: ShortInt;
  55.           BarHBorder: ShortInt;
  56.           MenuVBorder: ShortInt;
  57.           MenuHBorder: ShortInt;
  58.           WBorTop: ShortInt;
  59.           WBorLeft: ShortInt;
  60.           WBorRight: ShortInt;
  61.           WBorBottom: ShortInt;
  62.           Font: pTextAttr;
  63.           ViewPort: tViewPort;
  64.           RastPort: tRastPort;
  65.           BitMap: tBitMap;
  66.           LayerInfo: tLayer_Info;
  67.           FirstGadget: pGadget;
  68.           DetailPen: ShortInt;
  69.           BlockPen: ShortInt;
  70.           SaveColor0: Integer;
  71.           BarLayer: pLayer;
  72.           ExtData: pShortInt;
  73.           UserData: pShortInt;
  74.         End;
  75.  
  76.   tPropInfo = Record
  77.           Flags: Integer;
  78.           HorizPot: Integer;
  79.           VertPot: Integer;
  80.           HorizBody: Integer;
  81.           VertBody: Integer;
  82.           CWidth: Integer;
  83.           CHeight: Integer;
  84.           HPotRes: Integer;
  85.           VPotRes: Integer;
  86.           LeftBorder: Integer;
  87.           TopBorder: Integer;
  88.         End;
  89.  
  90.   pRemember = ^tRemember;
  91.   tRemember = Record
  92.           NextRemember: pRemember;
  93.           RememberSize: LongInt;
  94.           Memory: pShortInt;
  95.         End;
  96.  
  97.   pKeyMap = ^tKeyMap;
  98.   tStringInfo = Record
  99.           Buffer: pShortInt;
  100.           UndoBuffer: pShortInt;
  101.           BufferPos: Integer;
  102.           MaxChars: Integer;
  103.           DispPos: Integer;
  104.           UndoPos: Integer;
  105.           NumChars: Integer;
  106.           DispCount: Integer;
  107.           CLeft: Integer;
  108.           CTop: Integer;
  109.           LayerPtr: pLayer;
  110.           LongInt_: LongInt;
  111.           AltKeyMap: pKeyMap;
  112.         End;
  113.  
  114.   pIntuiMessage = ^tIntuiMessage;
  115.   tIntuiMessage = Record
  116.           ExecMessage: tMessage;
  117.           Class: LongInt;
  118.           Code: Integer;
  119.           Qualifier: Integer;
  120.           IAddress: Pointer;
  121.           MouseX: Integer;
  122.           MouseY: Integer;
  123.           Seconds: LongInt;
  124.           Micros: LongInt;
  125.           IDCMPWindow: pWindow;
  126.           SpecialLink: pIntuiMessage;
  127.         End;
  128.  
  129.   pImage = ^tImage;
  130.   pBitMap = ^tBitMap;
  131.   tNewWindow = Record
  132.           LeftEdge: Integer;
  133.           TopEdge: Integer;
  134.           Width: Integer;
  135.           Height: Integer;
  136.           DetailPen: ShortInt;
  137.           BlockPen: ShortInt;
  138.           IDCMPFlags: LongInt;
  139.           Flags: LongInt;
  140.           FirstGadget: pGadget;
  141.           CheckMark: pImage;
  142.           Title: pShortInt;
  143.           Screen: pScreen;
  144.           BitMap: pBitMap;
  145.           MinWidth: Integer;
  146.           MinHeight: Integer;
  147.           MaxWidth: Integer;
  148.           MaxHeight: Integer;
  149.           Type_: Integer;
  150.         End;
  151.  
  152.   pRequester = ^tRequester;
  153.   pRastPort = ^tRastPort;
  154.   pMsgPort = ^tMsgPort;
  155.   pTextFont = ^tTextFont;
  156.   tWindow = Record
  157.           NextWindow: pWindow;
  158.           LeftEdge: Integer;
  159.           TopEdge: Integer;
  160.           Width: Integer;
  161.           Height: Integer;
  162.           MouseY: Integer;
  163.           MouseX: Integer;
  164.           MinWidth: Integer;
  165.           MinHeight: Integer;
  166.           MaxWidth: Integer;
  167.           MaxHeight: Integer;
  168.           Flags: LongInt;
  169.           MenuStrip: pMenu;
  170.           Title: pShortInt;
  171.           FirstRequest: pRequester;
  172.           DMRequest: pRequester;
  173.           ReqCount: Integer;
  174.           WScreen: pScreen;
  175.           RPort: pRastPort;
  176.           BorderLeft: ShortInt;
  177.           BorderTop: ShortInt;
  178.           BorderRight: ShortInt;
  179.           BorderBottom: ShortInt;
  180.           BorderRPort: pRastPort;
  181.           FirstGadget: pGadget;
  182.           Parent: pWindow;
  183.           Descendant: pWindow;
  184.           Pointer: pInteger;
  185.           PtrHeight: ShortInt;
  186.           PtrWidth: ShortInt;
  187.           XOffset: ShortInt;
  188.           YOffset: ShortInt;
  189.           IDCMPFlags: LongInt;
  190.           UserPort: pMsgPort;
  191.           WindowPort: pMsgPort;
  192.           MessageKey: pIntuiMessage;
  193.           DetailPen: ShortInt;
  194.           BlockPen: ShortInt;
  195.           CheckMark: pImage;
  196.           ScreenTitle: pShortInt;
  197.           GZZMouseX: Integer;
  198.           GZZMouseY: Integer;
  199.           GZZWidth: Integer;
  200.           GZZHeight: Integer;
  201.           ExtData: pShortInt;
  202.           UserData: pShortInt;
  203.           WLayer: pLayer;
  204.           IFont: pTextFont;
  205.         End;
  206.  
  207.   tPreferences = Record
  208.           FontHeight: ShortInt;
  209.           PrinterPort: ShortInt;
  210.           BaudRate: Integer;
  211.           KeyRptSpeed: ttimeval;
  212.           KeyRptDelay: ttimeval;
  213.           DoubleClick: ttimeval;
  214.           PointerMatrix: Array [0..35] of Integer;
  215.           XOffset: ShortInt;
  216.           YOffset: ShortInt;
  217.           color17: Integer;
  218.           color18: Integer;
  219.           color19: Integer;
  220.           PointerTicks: Integer;
  221.           color0: Integer;
  222.           color1: Integer;
  223.           color2: Integer;
  224.           color3: Integer;
  225.           ViewXOffset: ShortInt;
  226.           ViewYOffset: ShortInt;
  227.           ViewInitX: Integer;
  228.           ViewInitY: Integer;
  229.           EnableCLI: Integer;
  230.           PrinterType: Integer;
  231.           PrinterFilename: Array [0..29] of ShortInt;
  232.           PrintPitch: Integer;
  233.           PrintQuality: Integer;
  234.           PrintSpacing: Integer;
  235.           PrintLeftMargin: Integer;
  236.           PrintRightMargin: Integer;
  237.           PrintImage: Integer;
  238.           PrintAspect: Integer;
  239.           PrintShade: Integer;
  240.           PrintThreshold: Integer;
  241.           PaperSize: Integer;
  242.           PaperLength: Integer;
  243.           PaperType: Integer;
  244.           SerRWBits: ShortInt;
  245.           SerStopBuf: ShortInt;
  246.           SerParShk: ShortInt;
  247.           LaceWB: ShortInt;
  248.           WorkName: Array [0..29] of ShortInt;
  249.           RowSizeChange: ShortInt;
  250.           ColumnSizeChange: ShortInt;
  251.           PrintFlags: Integer;
  252.           PrintMaxWidth: Integer;
  253.           PrintMaxHeight: Integer;
  254.           PrintDensity: ShortInt;
  255.           PrintXOffset: ShortInt;
  256.           wb_Width: Integer;
  257.           wb_Height: Integer;
  258.           wb_Depth: ShortInt;
  259.           ext_size: ShortInt;
  260.         End;
  261.  
  262.   tIntuitionBase = Record
  263.           LibNode: tLibrary;
  264.           ViewLord: tView;
  265.           ActiveWindow: pWindow;
  266.           ActiveScreen: pScreen;
  267.           FirstScreen: pScreen;
  268.           Flags: LongInt;
  269.           MouseY: Integer;
  270.           MouseX: Integer;
  271.           Seconds: LongInt;
  272.           Micros: LongInt;
  273.         End;
  274.  
  275.   pIntuiText = ^tIntuiText;
  276.   tIntuiText = Record
  277.           FrontPen: ShortInt;
  278.           BackPen: ShortInt;
  279.           DrawMode: ShortInt;
  280.           LeftEdge: Integer;
  281.           TopEdge: Integer;
  282.           ITextFont: pTextAttr;
  283.           IText: pShortInt;
  284.           NextText: pIntuiText;
  285.         End;
  286.  
  287.   tRequester = Record
  288.           OlderRequest: pRequester;
  289.           LeftEdge: Integer;
  290.           TopEdge: Integer;
  291.           Width: Integer;
  292.           Height: Integer;
  293.           RelLeft: Integer;
  294.           RelTop: Integer;
  295.           ReqGadget: pGadget;
  296.           ReqBorder: pBorder;
  297.           ReqText: pIntuiText;
  298.           Flags: Integer;
  299.           BackFill: ShortInt;
  300.           ReqLayer: pLayer;
  301.           ReqPad1: Array [0..31] of ShortInt;
  302.           ImageBMap: pBitMap;
  303.           RWindow: pWindow;
  304.           ReqPad2: Array [0..35] of ShortInt;
  305.         End;
  306.  
  307.   tImage = Record
  308.           LeftEdge: Integer;
  309.           TopEdge: Integer;
  310.           Width: Integer;
  311.           Height: Integer;
  312.           Depth: Integer;
  313.           ImageData: pInteger;
  314.           PlanePick: ShortInt;
  315.           PlaneOnOff: ShortInt;
  316.           NextImage: pImage;
  317.         End;
  318.  
  319.   tGadget = Record
  320.           NextGadget: pGadget;
  321.           LeftEdge: Integer;
  322.           TopEdge: Integer;
  323.           Width: Integer;
  324.           Height: Integer;
  325.           Flags: Integer;
  326.           Activation: Integer;
  327.           GadgetType: Integer;
  328.           GadgetRender: Pointer;
  329.           SelectRender: Pointer;
  330.           GadgetText: pIntuiText;
  331.           MutualExclude: LongInt;
  332.           SpecialInfo: Pointer;
  333.           GadgetID: Integer;
  334.           UserData: Pointer;
  335.         End;
  336.  
  337.   tBoolInfo = Record
  338.           Flags: Integer;
  339.           Mask: pInteger;
  340.           Reserved: LongInt;
  341.         End;
  342.  
  343.   tMenuItem = Record
  344.           NextItem: pMenuItem;
  345.           LeftEdge: Integer;
  346.           TopEdge: Integer;
  347.           Width: Integer;
  348.           Height: Integer;
  349.           Flags: Integer;
  350.           MutualExclude: LongInt;
  351.           ItemFill: Pointer;
  352.           SelectFill: Pointer;
  353.           Command: ShortInt;
  354.           SubItem: pMenuItem;
  355.           NextSelect: Integer;
  356.         End;
  357.  
  358.   tNewScreen = Record
  359.           LeftEdge: Integer;
  360.           TopEdge: Integer;
  361.           Width: Integer;
  362.           Height: Integer;
  363.           Depth: Integer;
  364.           DetailPen: ShortInt;
  365.           BlockPen: ShortInt;
  366.           ViewModes: Integer;
  367.           Type_: Integer;
  368.           Font: pTextAttr;
  369.           DefaultTitle: pShortInt;
  370.           Gadgets: pGadget;
  371.           CustomBitMap: pBitMap;
  372.         End;
  373.  
  374.   pNewScreen = ^tNewScreen;
  375.   pPreferences = ^tPreferences;
  376.   pView = ^tView;
  377.   pNewWindow = ^tNewWindow;
  378.   pViewPort = ^tViewPort;
  379.   pIntuitionBase = ^tIntuitionBase;
  380.   pRectangle = ^tRectangle;
  381.   pInputEvent = ^tInputEvent;
  382.   ppRemember = ^pRemember;
  383.   pList = ^tList;
  384.  
  385.  
  386. Var
  387.   IntuitionBase: pIntuitionBase;
  388.  
  389.  
  390. Const
  391.   SYSREQUEST = $4000;
  392.   BEEPING = $20;
  393.   TOPAZ_SIXTY = $9;
  394.   FANFOLD = $0;
  395.   ALTRIGHT = $20;
  396.   CHECKIT = $1;
  397.   WBENCHWINDOW = $2000000;
  398.   SSTOP_BITS = $F0;
  399.   SMART_REFRESH = $0;
  400.   SBUF_4096 = $3;
  401.   PREDRAWN = $2;
  402.   AUTOKNOB = $1;
  403.   FREEVERT = $4;
  404.   OKOK = $1;
  405.   WBENCHCLOSE = $2;
  406.   AUTOBACKPEN = $1;
  407.   BOTTOMBORDER = $80;
  408.   KNOBVMIN = $4;
  409.   ACTIVEWINDOW = $40000;
  410.   WINDOWACTIVE = $2000;
  411.   SELECTUP = $E8;
  412.   OKIMATE_20 = $9;
  413.   GREY_SCALE2 = $1000;
  414.   N_TRACTOR = $20;
  415.   SHSHAKE_NONE = $2;
  416.   SBUFSIZE_BITS = $F;
  417.   STRINGCENTER = $200;
  418.   CUSTOMBITMAP = $40;
  419.   SHSHAKE_BITS = $F;
  420.   NEWPREFS = $4000;
  421.   SHADE_GREYSCALE = $1;
  422.   CORRECT_BLUE = $4;
  423.   AUTOITEXTFONT = $0;
  424.   STDSCREENHEIGHT = $FFFFFFFF;
  425.   REQOFFWINDOW = $1000;
  426.   CUSTOMSCREEN = $F;
  427.   US_LEGAL = $10;
  428.   POINTREL = $1;
  429.   DIAB_630 = $4;
  430.   MENUDOWN = $69;
  431.   HIGHBOX = $80;
  432.   GADGET0002 = $2;
  433.   LOWCOMMWIDTH = $10;
  434.   W_TRACTOR = $30;
  435.   MENUNULL = $FFFF;
  436.   MENUTOGGLED = $4000;
  437.   ALTLEFT = $10;
  438.   RIGHTBORDER = $10;
  439.   PARALLEL_PRINTER = $0;
  440.   BAUD_110 = $0;
  441.   US_LETTER = $0;
  442.   GADGIMMEDIATE = $2;
  443.   BOOLGADGET = $1;
  444.   DISKREMOVED = $10000;
  445.   BAUD_300 = $1;
  446.   ITEMTEXT = $2;
  447.   KNOBHIT = $100;
  448.   INTEGER_SCALING = $100;
  449.   GADGIMAGE = $4;
  450.   MENUCANCEL = $2;
  451.   AUTOFRONTPEN = $0;
  452.   MIDRAWN = $100;
  453.   OKABORT = $4;
  454.   REFRESHBITS = $C0;
  455.   BAUD_19200 = $6;
  456.   AUTOTOPEDGE = $3;
  457.   LACEWB = $1;
  458.   AMIGARIGHT = $80;
  459.   MAXBODY = $FFFF;
  460.   SHADE_COLOR = $2;
  461.   CORRECT_RGB_MASK = $7;
  462.   CHECKWIDTH = $13;
  463.   COMMSEQ = $4;
  464.   NOISYREQ = $4;
  465.   SUPER_BITMAP = $80;
  466.   ASPECT_HORIZ = $0;
  467.   PIXEL_DIMENSIONS = $40;
  468.   ISDRAWN = $1000;
  469.   WINDOWSIZING = $1;
  470.   RMBTRAP = $10000;
  471.   CBM_MPS1000 = $3;
  472.   GRELHEIGHT = $40;
  473.   MENUWAITING = $3;
  474.   SCREENQUIET = $100;
  475.   CLOSEWINDOW_ = $200;
  476.   GADGETDOWN = $20;
  477.   LONGINT_ = $800;
  478.   GADGDISABLED = $100;
  479.   SUPFRONT = $50;
  480.   IMAGE_NEGATIVE = $1;
  481.   CORRECT_RED = $1;
  482.   FLOYD_DITHERING = $400;
  483.   HIGHIMAGE = $0;
  484.   ENDGADGET = $4;
  485.   WINDOWDEPTH = $4;
  486.   EPSON_JX_80 = $8;
  487.   CURSORUP = $4C;
  488.   LEFTBORDER = $20;
  489.   WBENCHOPEN = $1;
  490.   WINDOWCLOSE = $8;
  491.   WUPFRONT = $40;
  492.   MENUHOT = $1;
  493.   SBUF_16000 = $5;
  494.   HP_LASERJET = $B;
  495.   PROPGADGET = $3;
  496.   SIZEBBOTTOM = $20;
  497.   TOPAZ_EIGHTY = $8;
  498.   GADGETTYPE = $FC00;
  499.   MOUSEBUTTONS = $8;
  500.   GADGHCOMP = $0;
  501.   NEWSIZE = $2;
  502.   DIAB_ADV_D25 = $5;
  503.   SPARITY_EVEN = $1;
  504.   AMIGALEFT = $40;
  505.   GADGHNONE = $3;
  506.   STRINGRIGHT = $400;
  507.   VANILLAKEY = $200000;
  508.   HALFTONE_DITHERING = $200;
  509.   DIMENSIONS_MASK = $F0;
  510.   SINGLE = $80;
  511.   SBUF_512 = $0;
  512.   SPARITY_NONE = $0;
  513.   HIGHFLAGS = $C0;
  514.   WBENCHMESSAGE = $20000;
  515.   DEADEND_ALERT = $80000000;
  516.   SPARITY_BITS = $F0;
  517.   AUTONEXTTEXT = $0;
  518.   BOOLEXTEND = $2000;
  519.   QUME_LP_20 = $A;
  520.   ABSOLUTE_DIMENSIONS = $20;
  521.   BORDERLESS = $800;
  522.   ANTI_ALIAS = $800;
  523.   WINDOWDRAG = $2;
  524.   CUSTOM_NAME = $0;
  525.   SHSHAKE_XON = $0;
  526.   MENUTOGGLE = $8;
  527.   FOLLOWMOUSE = $8;
  528.   POINTERSIZE = $24;
  529.   CURSORRIGHT = $4E;
  530.   SUPER_UNUSED = $FCFC0000;
  531.   SELECTDOWN = $68;
  532.   SCRGADGET = $4000;
  533.   REQGADGET = $1000;
  534.   REPORTMOUSE_ = $200;
  535.   SHSHAKE_RTS = $1;
  536.   DITHERING_MASK = $600;
  537.   SDRAGGING = $30;
  538.   SIZEBRIGHT = $10;
  539.   ASPECT_VERT = $1;
  540.   HP_LASERJET_PLUS = $C;
  541.   BOUNDED_DIMENSIONS = $10;
  542.   NOITEM = $3F;
  543.   INACTIVEWINDOW = $80000;
  544.   NOCAREREFRESH = $20000;
  545.   LW_RESERVED = $1;
  546.   SPARITY_ODD = $2;
  547.   GRELBOTTOM = $8;
  548.   WDRAGGING = $20;
  549.   LETTER = $100;
  550.   GADGHIGHBITS = $3;
  551.   SREAD_BITS = $F0;
  552.   AMIGAKEYS = $C0;
  553.   SDOWNBACK = $70;
  554.   NOMENU = $1F;
  555.   RAWKEY = $400;
  556.   SCREENTYPE = $F;
  557.   SIX_LPI = $0;
  558.   SIZING = $10;
  559.   REQSET = $80;
  560.   BAUD_MIDI = $7;
  561.   WDOWNBACK = $60;
  562.   SCREENBEHIND = $80;
  563.   DRAFT = $0;
  564.   DELTAMOVE = $100000;
  565.   IMAGE_POSITIVE = $0;
  566.   ALPHA_P_101 = $1;
  567.   LOWCHECKWIDTH = $D;
  568.   PROPBORDERLESS = $8;
  569.   INTUITICKS = $400000;
  570.   ELITE = $400;
  571.   MAXPOT = $FFFF;
  572.   BAUD_1200 = $2;
  573.   REQACTIVE = $2000;
  574.   SIMPLE_REFRESH = $40;
  575.   ORDERED_DITHERING = $0;
  576.   MENUUP = $E9;
  577.   CURSORLEFT = $4F;
  578.   CLOSE_ = $80;
  579.   STRGADGET = $4;
  580.   MENUVERIFY = $2000;
  581.   OKCANCEL = $2;
  582.   CUSTOM = $40;
  583.   SWRITE_BITS = $F;
  584.   KEYCODE_B = $35;
  585.   BAUD_2400 = $3;
  586.   GZZGADGET = $2000;
  587.   DIAB_C_150 = $6;
  588.   GRELRIGHT = $10;
  589.   ALTKEYMAP = $1000;
  590.   GADGHBOX = $1;
  591.   LONELYMESSAGE = $80000000;
  592.   GRELWIDTH = $20;
  593.   DEFERREFRESH = $8000;
  594.   SYSGADGET = $8000;
  595.   SIZEVERIFY = $1;
  596.   BACKDROP = $100;
  597.   FILENAME_SIZE = $1E;
  598.   BAUD_4800 = $4;
  599.   COMMWIDTH = $1B;
  600.   WBENCHSCREEN = $1;
  601.   SELECTED = $80;
  602.   FREEHORIZ = $2;
  603.   SERIAL_PRINTER = $1;
  604.   BAUD_9600 = $5;
  605.   AUTOLEFTEDGE = $6;
  606.   MULTIPLY_DIMENSIONS = $80;
  607.   KEYCODE_M = $37;
  608.   CHECKED = $100;
  609.   TOPBORDER = $40;
  610.   PICA = $0;
  611.   CURSORDOWN = $4D;
  612.   KEYCODE_N = $36;
  613.   RECOVERY_ALERT = $0;
  614.   CORRECT_GREEN = $2;
  615.   HIGHCOMP = $40;
  616.   HIGHITEM = $2000;
  617.   REQCLEAR = $1000;
  618.   EPSON = $7;
  619.   ALERT_TYPE = $80000000;
  620.   KEYCODE_Q = $10;
  621.   ITEMENABLED = $10;
  622.   HIGHNONE = $C0;
  623.   EIGHT_LPI = $200;
  624.   BROTHER_15XL = $2;
  625.   GADGETUP = $40;
  626.   ACTIVATE = $1000;
  627.   MENUSTATE = $8000;
  628.   FINE = $800;
  629.   NOSUB = $1F;
  630.   RELVERIFY = $1;
  631.   TOGGLESELECT = $100;
  632.   REFRESHWINDOW = $4;
  633.   WINDOWREFRESH = $1000000;
  634.   CENTER_IMAGE = $8;
  635.   KEYCODE_V = $34;
  636.   MENUENABLED = $1;
  637.   KNOBHMIN = $6;
  638.   SBUF_1024 = $1;
  639.   KEYCODE_X = $32;
  640.   SBUF_8000 = $4;
  641.   BOOLMASK = $1;
  642.   REQVERIFY = $800;
  643.   SHOWTITLE_ = $10;
  644.   GADGHIMAGE = $2;
  645.   IGNORE_DIMENSIONS = $0;
  646.   DISKINSERTED = $8000;
  647.   MOUSEMOVE = $10;
  648.   GIMMEZEROZERO = $400;
  649.   INREQUEST = $4000;
  650.   MENUPICK = $100;
  651.   OTHER_REFRESH = $C0;
  652.   WINDOWTICKED = $4000000;
  653.   SHADE_BW = $0;
  654.   SBUF_2048 = $2;
  655.   AUTODRAWMODE = $1;
  656.  
  657.  
  658. Procedure OpenIntuition;
  659. Procedure Intuition_ (ievent: pInputEvent);
  660. Function AddGadget
  661.          (AddPtr: pWindow;
  662.           Gadget: pGadget;
  663.           Position: Integer): Integer;
  664.  
  665. Function ClearDMRequest (Window: pWindow): Boolean;
  666. Procedure ClearMenuStrip (Window: pWindow);
  667. Procedure ClearPointer (Window: pWindow);
  668. Procedure CloseScreen (Screen: pScreen);
  669. Procedure CloseWindow (Window: pWindow);
  670. Function CloseWorkBench: Boolean;
  671. Procedure CurrentTime
  672.          (Seconds: pLongInt;
  673.           Micros: pLongInt);
  674.  
  675. Function DisplayAlert
  676.          (AlertNumber: LongInt;
  677.           String_: pShortInt;
  678.           Height: Integer): Boolean;
  679.  
  680. Procedure DisplayBeep (Screen: pScreen);
  681. Function DoubleClick
  682.          (sseconds: LongInt;
  683.           smicros: LongInt;
  684.           cseconds: LongInt;
  685.           cmicros: LongInt): Boolean;
  686.  
  687. Procedure DrawBorder
  688.          (RPort: pRastPort;
  689.           Border: pBorder;
  690.           LeftOffset: Integer;
  691.           TopOffset: Integer);
  692.  
  693. Procedure DrawImage
  694.          (RPort: pRastPort;
  695.           Image: pImage;
  696.           LeftOffset: Integer;
  697.           TopOffset: Integer);
  698.  
  699. Procedure EndRequest
  700.          (requester: pRequester;
  701.           window: pWindow);
  702.  
  703. Function GetDefPrefs
  704.          (preferences: pPreferences;
  705.           size: Integer): pPreferences;
  706.  
  707. Function GetPrefs
  708.          (preferences: pPreferences;
  709.           size: Integer): pPreferences;
  710.  
  711. Procedure InitRequester (req: pRequester);
  712. Function ItemAddress
  713.          (MenuStrip: pMenu;
  714.           MenuNumber: Integer): pMenuItem;
  715.  
  716. Procedure ModifyIDCMP
  717.          (Window: pWindow;
  718.           Flags: LongInt);
  719.  
  720. Procedure ModifyProp
  721.          (Gadget: pGadget;
  722.           Ptr: pWindow;
  723.           Req: pRequester;
  724.           Flags: Integer;
  725.           HPos: Integer;
  726.           VPos: Integer;
  727.           HBody: Integer;
  728.           VBody: Integer);
  729.  
  730. Procedure MoveScreen
  731.          (Screen: pScreen;
  732.           dx: Integer;
  733.           dy: Integer);
  734.  
  735. Procedure MoveWindow
  736.          (window: pWindow;
  737.           dx: Integer;
  738.           dy: Integer);
  739.  
  740. Procedure OffGadget
  741.          (Gadget: pGadget;
  742.           Ptr: pWindow;
  743.           Req: pRequester);
  744.  
  745. Procedure OffMenu
  746.          (Window: pWindow;
  747.           MenuNumber: Integer);
  748.  
  749. Procedure OnGadget
  750.          (Gadget: pGadget;
  751.           Ptr: pWindow;
  752.           Req: pRequester);
  753.  
  754. Procedure OnMenu
  755.          (Window: pWindow;
  756.           MenuNumber: Integer);
  757.  
  758. Function OpenScreen (OSargs: pNewScreen): pScreen;
  759. Function OpenWindow (OWargs: pNewWindow): pWindow;
  760. Function OpenWorkBench: Boolean;
  761. Procedure PrintIText
  762.          (rp: pRastPort;
  763.           itext: pIntuiText;
  764.           left: Integer;
  765.           top: Integer);
  766.  
  767. Procedure RefreshGadgets
  768.          (Gadgets: pGadget;
  769.           Ptr: pWindow;
  770.           Req: pRequester);
  771.  
  772. Function RemoveGadget
  773.          (RemPtr: pWindow;
  774.           Gadget: pGadget): Integer;
  775.  
  776. Procedure ReportMouse
  777.          (Boolean: Boolean;
  778.           Window: pWindow);
  779.  
  780. Function Request
  781.          (Requester: pRequester;
  782.           Window: pWindow): Boolean;
  783.  
  784. Procedure ScreenToBack (Screen: pScreen);
  785. Procedure ScreenToFront (Screen: pScreen);
  786. Function SetDMRequest
  787.          (Window: pWindow;
  788.           req: pRequester): Boolean;
  789.  
  790. Function SetMenuStrip
  791.          (Window: pWindow;
  792.           Menu: pMenu): Boolean;
  793.  
  794. Procedure SetPointer
  795.          (Window: pWindow;
  796.           Pointer: pInteger;
  797.           Height: Integer;
  798.           Width: Integer;
  799.           Xoffset: Integer;
  800.           Yoffset: Integer);
  801.  
  802. Procedure SetWindowTitles
  803.          (window: pWindow;
  804.           windowtitle: pShortInt;
  805.           screentitle: pShortInt);
  806.  
  807. Procedure ShowTitle
  808.          (Screen: pScreen;
  809.           ShowIt: Boolean);
  810.  
  811. Procedure SizeWindow
  812.          (window: pWindow;
  813.           dx: Integer;
  814.           dy: Integer);
  815.  
  816. Function ViewAddress: pView;
  817. Function ViewPortAddress (window: pWindow): pViewPort;
  818. Procedure WindowToBack (window: pWindow);
  819. Procedure WindowToFront (window: pWindow);
  820. Function WindowLimits
  821.          (window: pWindow;
  822.           minwidth: Integer;
  823.           minheight: Integer;
  824.           maxwidth: Integer;
  825.           maxheight: Integer): Boolean;
  826.  
  827. Function SetPrefs
  828.          (preferences: pPreferences;
  829.           size: LongInt;
  830.           flag: Boolean): pPreferences;
  831.  
  832. Function IntuiTextLength (itext: pIntuiText): LongInt;
  833. Function WBenchToBack: Boolean;
  834. Function WBenchToFront: Boolean;
  835. Function AutoRequest
  836.          (Window: pWindow;
  837.           Body: pIntuiText;
  838.           PText: pIntuiText;
  839.           NText: pIntuiText;
  840.           PFlag: LongInt;
  841.           NFlag: LongInt;
  842.           W: Integer;
  843.           H: Integer): Boolean;
  844.  
  845. Procedure BeginRefresh (Window: pWindow);
  846. Function BuildSysRequest
  847.          (Window: pWindow;
  848.           Body: pIntuiText;
  849.           PosText: pIntuiText;
  850.           NegText: pIntuiText;
  851.           Flags: LongInt;
  852.           W: Integer;
  853.           H: Integer): pWindow;
  854.  
  855. Procedure EndRefresh
  856.          (Window: pWindow;
  857.           Complete: Boolean);
  858.  
  859. Procedure FreeSysRequest (Window: pWindow);
  860. Procedure MakeScreen (Screen: pScreen);
  861. Procedure RemakeDisplay;
  862. Procedure RethinkDisplay;
  863. Function AllocRemember
  864.          (RememberKey: ppRemember;
  865.           Size: LongInt;
  866.           Flags: LongInt): Pointer;
  867.  
  868. Procedure AlohaWorkbench (wbport: LongInt);
  869. Procedure FreeRemember
  870.          (RememberKey: ppRemember;
  871.           ReallyForget: Boolean);
  872.  
  873. Function LockIBase (dontknow: LongInt): LongInt;
  874. Procedure UnlockIBase (IBLock: LongInt);
  875. Function GetScreenData
  876.          (buffer: Pointer;
  877.           size: Integer;
  878.           type_: Integer;
  879.           screen: pScreen): Boolean;
  880.  
  881. Procedure RefreshGList
  882.          (Gadgets: pGadget;
  883.           Ptr: pWindow;
  884.           Req: pRequester;
  885.           NumGad: Integer);
  886.  
  887. Function AddGList
  888.          (AddPtr: pWindow;
  889.           Gadget: pGadget;
  890.           Position: Integer;
  891.           NumGad: Integer;
  892.           Requester: pRequester): Integer;
  893.  
  894. Function RemoveGList
  895.          (RemPtr: pWindow;
  896.           Gadget: pGadget;
  897.           NumGad: Integer): Integer;
  898.  
  899. Procedure ActivateWindow (Window: pWindow);
  900. Procedure RefreshWindowFrame (Window: pWindow);
  901. Function ActivateGadget
  902.          (Gadgets: pGadget;
  903.           Window: pWindow;
  904.           Req: pRequester): Boolean;
  905.  
  906. Procedure NewModifyProp
  907.          (Gadget: pGadget;
  908.           Ptr: pWindow;
  909.           Req: pRequester;
  910.           Flags: Integer;
  911.           HPos: Integer;
  912.           VPos: Integer;
  913.           HBody: Integer;
  914.           VBody: Integer;
  915.           NumGad: Integer);
  916.  
  917.  
  918.  
  919. Function ITEMNUM (n: Integer): Integer;
  920. Function MENUNUM (n: Integer): Integer;
  921. Function SHAKNUM (n: Integer): Integer;
  922. Function SHIFTITEM (n: Integer): Integer;
  923. Function SHIFTMENU (n: Integer): Integer;
  924. Function SHIFTSUB (n: Integer): Integer;
  925. Function SPARNUM (n: Integer): Integer;
  926. Function SRBNUM (n: Integer): Integer;
  927. Function SSBNUM (n: Integer): Integer;
  928. Function SUBNUM (n: Integer): Integer;
  929. Function SWBNUM (n: Integer): Integer;
  930. End.
  931.